* lisp/subr.el (read-multiple-choice): Avoid free variable.

diff --git a/lisp/subr.el b/lisp/subr.el
index 7b0850f463ff8ca4d736b42bd305cdb39a32006d..fb1e0291a7a3b1e43816313983b22115d186fdcd 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2296,7 +2296,7 @@ Usage example:
                 altered-name))
             (append choices '((?? "?")))
             ", ")))
-         tchar buf wrong-char)
+         tchar buf wrong-char answer)
     (save-window-excursion
       (save-excursion
        (while (not tchar)